﻿Public Class ReporteClientes
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Try
            Dim oRptReportes As New CrystalReport1
            oRptReportes.RecordSelectionFormula = "{Clientes.Nombres_Cliente}='" & Me.TextBox1.Text & "'"
            Me.CrystalReportViewer1.ReportSource = oRptReportes

        Catch ex As Exception
            MsgBox("No existe el vendedor")

        End Try
    End Sub

    Protected Sub btnExportar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnExportar.Click
       
    End Sub

End Class